(comint-read-input-ring): Make regexp stricter.

diff --git a/lisp/comint.el b/lisp/comint.el
index cdf94394d4eb444d2759833650d9a04984fa0322..46a4be86c26b2da9ba9608ac3cc6afa3635fb996 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -627,7 +627,7 @@ See also `comint-input-ignoredups' and `comint-write-input-ring'."
               (save-restriction
                 (widen)
                 (goto-char (point-min))
-                (while (re-search-forward "^\\s *\\([^#].*\\)\\s *$" nil t)
+                (while (re-search-forward "^[ \t]*\\([^#\n].*\\)[ \t]*$" nil t)
                   (let ((history (buffer-substring (match-beginning 1)
                                                    (match-end 1))))
                     (if (or (null comint-input-ignoredups)